www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_make_wei_asp_ajaxed_before_x_cids.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <DIV id="loading_msg" style="position:absolute; z-index:200; top:210px; left:184px; background-color:#ffffff; width: 556px; height: 50px;" > 请稍后......</div> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <script type="text/javascript" src="../../inc/zxml.js"></script> <!--#include file=../../inc/ajaxLIB_no_loader.asp--> <!--#include file=../../inc/ND_class_function.asp--> <% Application.Lock() Application("newdsoft_web_user_mdb_using")="no" Application("newdsoft_web_user_mdb_when_using")=now() Application.UnLock() %> <% Server.ScriptTimeout=9999999 session.timeout=600 call all_update_qiantai_web_filenames_config_xml() ' 检测组件变量 dim isobj,VerObj,TestObj '检查组件是否被支持及组件版本的子程序 sub ObjTest(strObj) on error resume next IsObj=false VerObj="" set TestObj=server.CreateObject (strObj) If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version if VerObj="" or isnull(VerObj) then VerObj=TestObj.about end if set TestObj=nothing End sub ObjTest(fssoo_nd_var_str_x_customx) if not isobj then sss1="检测中:对不起,由于你的系统不支持FSO组件,所以无法使用本后台" %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); </script> <% response.end else sss1="检测中:支持FSO......" %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0); setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>请稍后.....</font>';",300); var ended=0; var ended2=0; var pos=""; var msg1=""; var needdo=1; var pos22="0"; ended2=0; var stu="ok"; pos22="0" var dfirst="1" //已用了asp里我自定义的sleep睡眠函数,js里的不用了 var per_sleep_time=5; //request(): var isqiye="<%=request("isqiye")%>"; var whenover_to_where="D_make_htm_by_cids.asp?cids=<%=request("cids")%>&page=<%=request("page")%>&isqiye=<%=request("isqiye")%>"; //循环延时,防止卡住: var w2 = setInterval("do_kernel_htm()",40); var a22=AJAXcreateXMLdocument(); a22.onreadystatechange=function(){ if (a22.readyState==4) { if (a22.parseError.errorCode!=0){ alert("数据读取错误,或服务器过载(如果总过载,请在自己的本地计算机上生成htm页),请重试!!"); } var root2=a22.documentElement; var s2s1=root2.firstChild.text; var s2s2=root2.childNodes[1].text; var s2s4=root2.childNodes[2].text; if (s2s1==1){ended2=1;} msg1=s2s2; dfirst="0"; needdo=1; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在处理 "+msg1+" 页,正在生成htm.....</font>';",1500); if (ended2==0){ } else { setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在生成htm....."+"</font>';",1500); self.location=whenover_to_where; } if (s2s4!="ok"){ if (s2s4.indexOf("delete_main_shibai")==-1){ stu="shibai"; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"出错,请重试...(出错原因:"+s2s4+")</font>';",1500); alert("出错,请重试...(出错原因:"+s2s4+")"); } else { } } } } function do_kernel_htm(){ if (needdo==1&&ended2==0&&stu=="ok"){ needdo=0; a22.async=true; //异步模式 setTimeout("do_it();",per_sleep_time); } } function do_it(){ a22.load("D_ajax_make_asp_ajaxed.asp?dfirst="+dfirst+"&isqiye="+isqiye+"&forwei=<%=request("weiii")%>"); } </script> <% end if %>